inherited frmImp_Etq_Entr_Alb: TfrmImp_Etq_Entr_Alb
  Left = 246
  Top = 128
  Caption = 'Impress'#227'o de Etiquetas de Entrega'
  ClientHeight = 444
  ClientWidth = 584
  OldCreateOrder = True
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 0
    Width = 584
    Height = 377
    object Label7: TLabel
      Left = 10
      Top = 60
      Width = 83
      Height = 14
      Caption = 'Aloca'#231#227'o Inicial'
    end
    object Label8: TLabel
      Left = 16
      Top = 88
      Width = 77
      Height = 14
      Alignment = taRightJustify
      Caption = 'Aloca'#231#227'o Final'
    end
    object c_cargaini: TSpeedButton
      Left = 147
      Top = 56
      Width = 23
      Height = 22
      Enabled = False
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = c_cargainiClick
    end
    object c_cargafim: TSpeedButton
      Left = 147
      Top = 84
      Width = 23
      Height = 22
      Enabled = False
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = c_cargafimClick
    end
    object Ed_tipo: TRadioGroup
      Left = 9
      Top = 3
      Width = 224
      Height = 49
      Caption = 'Aloca'#231#227'o em'
      Columns = 3
      ItemIndex = 0
      Items.Strings = (
        'Aberto'
        'Fechado'
        'Retido')
      TabOrder = 0
      OnExit = Ed_tipoExit
    end
    object GroupBox1: TGroupBox
      Left = 253
      Top = 3
      Width = 273
      Height = 49
      Caption = 'Per'#237'odo'
      TabOrder = 1
      object Label6: TLabel
        Left = 134
        Top = 22
        Width = 6
        Height = 14
        Caption = 'a'
      end
      object ed_datacadini: TDateEdit
        Left = 6
        Top = 19
        Width = 121
        Height = 21
        Ctl3D = False
        NumGlyphs = 2
        ParentCtl3D = False
        TabOrder = 0
      end
      object ed_datacadfim: TDateEdit
        Left = 146
        Top = 19
        Width = 121
        Height = 21
        Ctl3D = False
        NumGlyphs = 2
        ParentCtl3D = False
        TabOrder = 1
        OnKeyDown = ed_datacadfimKeyDown
      end
    end
    object ed_cargafim: TEdit
      Left = 98
      Top = 84
      Width = 43
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      MaxLength = 6
      TabOrder = 3
      OnEnter = ed_cargafimEnter
      OnExit = ed_cargafimExit
      OnKeyDown = ed_cargafimKeyDown
    end
    object ed_cargaini: TEdit
      Left = 98
      Top = 56
      Width = 43
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      MaxLength = 6
      TabOrder = 2
      OnEnter = ed_cargainiEnter
      OnExit = ed_cargainiExit
      OnKeyDown = ed_cargainiKeyDown
    end
    object dbgCarga: TDBGrid
      Left = 1
      Top = 135
      Width = 582
      Height = 110
      TabStop = False
      Align = alBottom
      DataSource = dsCarga
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 5
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      OnCellClick = dbgCargaCellClick
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Numero'
          Title.Alignment = taCenter
          Title.Caption = 'Carga'
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Data'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Car_numLote'
          Title.Alignment = taCenter
          Title.Caption = 'N. Lote'
          Width = 57
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Transportadora'
          Width = 283
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Previsao'
          Title.Alignment = taCenter
          Title.Caption = 'Previs'#227'o'
          Visible = True
        end>
    end
    object dbgEntr: TDBGrid
      Left = 1
      Top = 269
      Width = 582
      Height = 107
      Hint = 'Selecione qual entrega ser'#225' impressa'
      TabStop = False
      Align = alBottom
      DataSource = dsEntrega
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 6
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      OnDblClick = dbgEntrDblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'CAR_NUMERO'
          Title.Caption = 'Carga'
          Width = 59
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ITC_ORDEMENTREGA'
          Title.Alignment = taCenter
          Title.Caption = 'Entrega'
          Width = 52
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TOT'
          Title.Alignment = taRightJustify
          Title.Caption = 'Qtde'
          Width = 106
          Visible = True
        end>
    end
    object Panel4: TPanel
      Left = 1
      Top = 245
      Width = 582
      Height = 24
      Align = alBottom
      BevelInner = bvLowered
      Caption = 'Entregas'
      Color = clMoneyGreen
      TabOrder = 7
    end
    object Panel5: TPanel
      Left = 1
      Top = 111
      Width = 582
      Height = 24
      Align = alBottom
      BevelInner = bvLowered
      Caption = 'Cargas'
      Color = clMoneyGreen
      TabOrder = 8
    end
    object rgTipo: TRadioGroup
      Left = 253
      Top = 56
      Width = 224
      Height = 49
      Caption = 'Impressora'
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        'Etiqueta 1'
        'Etiqueta 2')
      TabOrder = 4
      OnExit = Ed_tipoExit
    end
    object rgQtde: TGroupBox
      Left = 192
      Top = 256
      Width = 185
      Height = 105
      Caption = 'Alterar Qtde: '
      TabOrder = 9
      Visible = False
      object edQtde: TRxCalcEdit
        Left = 32
        Top = 32
        Width = 121
        Height = 21
        AutoSize = False
        Ctl3D = False
        NumGlyphs = 2
        ParentCtl3D = False
        TabOrder = 0
      end
      object Button1: TButton
        Left = 55
        Top = 64
        Width = 75
        Height = 25
        Caption = 'OK'
        TabOrder = 1
        OnClick = Button1Click
      end
    end
  end
  inherited Panel2: TPanel
    Top = 377
    Width = 584
    inherited btncancelar1: TBitBtn
      Left = 242
    end
    inherited btnfechar1: TBitBtn
      Left = 468
    end
    inherited bimprimir: TFlatButton
      Enabled = True
      OnClick = bimprimirClick
    end
    inherited btncancelar: TFlatButton
      Left = 236
      OnClick = btncancelarClick
    end
    inherited btnfechar: TFlatButton
      Left = 456
    end
  end
  inherited sb: TStatusBar
    Top = 425
    Width = 584
  end
  inherited Panel3: TPanel
    Width = 584
    Height = 0
    Visible = False
  end
  object CDSCarga: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 480
    Top = 88
    Data = {
      A20000009619E0BD010000001800000005000000000003000000A200064E756D
      65726F0100490000000100055749445448020002000A00044461746104000600
      000000000B4361725F6E756D4C6F746501004900000001000557494454480200
      020003000E5472616E73706F727461646F726101004900000001000557494454
      48020002002C0008507265766973616F01004900000001000557494454480200
      02000A000000}
    object CDSCargaNumero: TStringField
      DisplayWidth = 10
      FieldName = 'Numero'
      Size = 10
    end
    object CDSCargaData: TDateField
      FieldName = 'Data'
    end
    object CDSCargaCar_numLote: TStringField
      FieldName = 'Car_numLote'
      Size = 3
    end
    object CDSCargaTransportadora: TStringField
      FieldName = 'Transportadora'
      Size = 44
    end
    object CDSCargaPrevisao: TStringField
      FieldName = 'Previsao'
      Size = 10
    end
  end
  object dsCarga: TDataSource
    DataSet = CDSCarga
    OnDataChange = dsCargaDataChange
    Left = 448
    Top = 88
  end
  object CDSEntr: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp'
    Left = 448
    Top = 280
    object CDSEntrCAR_NUMERO: TStringField
      FieldName = 'CAR_NUMERO'
      Size = 6
    end
    object CDSEntrITC_ORDEMENTREGA: TStringField
      FieldName = 'ITC_ORDEMENTREGA'
      Size = 3
    end
    object CDSEntrTOT: TFloatField
      FieldName = 'TOT'
    end
  end
  object dsEntrega: TDataSource
    DataSet = CDSEntr
    OnDataChange = dsEntregaDataChange
    Left = 480
    Top = 280
  end
  object Qry: TQuery
    DatabaseName = 'Industrial'
    DataSource = dsCarga
    SQL.Strings = (
      
        'Select ITC_ORDEMENTREGA,CAR_NUMERO,count(ITC_ORDEMENTREGA) as To' +
        't'
      'from ITEM_CARGA'
      'where Car_Numero =:Numero'
      'group by ITC_ORDEMENTREGA,CAR_NUMERO'
      'order by ITC_ORDEMENTREGA')
    Left = 384
    Top = 280
    ParamData = <
      item
        DataType = ftString
        Name = 'Numero'
        ParamType = ptUnknown
        Size = 11
      end>
    object QryITC_ORDEMENTREGA: TStringField
      FieldName = 'ITC_ORDEMENTREGA'
      Origin = 'INDUSTRIAL.ITEM_CARGA.ITC_ORDEMENTREGA'
      Size = 3
    end
    object QryCAR_NUMERO: TStringField
      FieldName = 'CAR_NUMERO'
      Origin = 'INDUSTRIAL.ITEM_CARGA.CAR_NUMERO'
      Size = 6
    end
    object QryTOT: TFloatField
      FieldName = 'TOT'
      Origin = 'INDUSTRIAL.ITEM_CARGA.ITC_ORDEMENTREGA'
    end
  end
  object dsp: TDataSetProvider
    DataSet = Qry
    Left = 416
    Top = 280
  end
end
